home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Magazine / InternetPD / SPlayer / Install_SPlayer < prev    next >
Encoding:
Text File  |  1998-04-01  |  8.6 KB  |  230 lines
  1. ;******************************************************************************
  2. ;      ______ ______ __
  3. ;     / ____// __  // /
  4. ;    / /___ / /_/ // /  ______ __  __ ______ _____
  5. ;   /___  // ____// /  / __  / \ \/ // ____// .__/
  6. ;  ____/ // /    / /_ / __  /   \  // __/_ / /
  7. ; /_____//_/    /___//_/ /_/    / //_____//_/
  8. ;                              /_/
  9. ;
  10. ; $VER: SPlayer_Install 0.88 (Apr-2-1998)
  11. ; splayer ©1996-1998 by Allan Versaevel
  12. ; splayer Installer ©1998 by Robert C. Reiswig
  13. ;
  14. ; If you wish to use any part of this installer you must ask. May not be
  15. ; integrated/placed into any other package! You may NOT change this in an way!
  16. ; Changes, suggestions or problems: vgr@best.com
  17. ;******************************************************************************
  18.  
  19. (set osver (/ (getversion "LIBS:version.library") 65536))
  20. (set vernum1 (getversion "splayer"))
  21. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  22. (set splayerver (cat ver1 "." rev1))
  23.  
  24. ;********************************************************************
  25. ; English Strings
  26. ;********************************************************************
  27. (set #about (cat "\n\n\n\nWelcome to SPlayer " splayerver "\n\n\n©1996-1998 by Allan Versaevel\n") )
  28. (set #todo-prompt "\nWhat parts of SPlayer do you wish to install?\n")
  29. (set #splayer " SPlayer")
  30. (set #extrabin " Extra bins (Needed)")
  31. (set #fonts " fonts (Needed)")
  32. (set #play16 " Play16 (Needed)")
  33. (set #gaip16 " GAIP16 (Needed)")
  34.  
  35. (set #wheresplayer "Where do you wish to install SPlayer. A directory called 'SPlayer' will be created.")
  36. (set #whereplay16 "Where do you wish to install the Play16 program. A directory will not be created.")
  37. (set #wheregaip16 "Where do you wish to install the GAIP16 program. A directory will not be created.")
  38. (set #askcpu "\nWhat version of Play16 would you like to install?\n")
  39.  
  40. (set #whatdocs "\nWhat SPlayer documentation would you like to install? (The selected ones will be copied over if they are found in this archive.)\n")
  41. (set #wheredocs "Where would you like the SPlayer documentation you selected to be installed?")
  42.  
  43. (set #doconfig "\nDo you wish to:\n")
  44. (set #yconfig " Make new config, delete old one. [Suggested]")
  45. (set #nconfig " Use current config file.")
  46. (set #wheresgapi "Where do you have Gaip16 installed for AHI support?")
  47.  
  48. (set #wheresplay16 "Please select where the file 'Play16' is located.")
  49. (set #wheresMpega "Please select where the file 'mpega' is located.")
  50.  
  51. (set #byebye (cat "\nSPlayer Install Complete!\n\n" " "))
  52. ;********************************************************************
  53. ; Hello
  54. ;********************************************************************
  55. (message #about)
  56. (welcome)
  57.  
  58. ;*********************************************************************************
  59. ; Ask user what to install
  60. ;*********************************************************************************
  61. (set ToDo (askoptions (choices  #splayer #extrabin #fonts #gaip16) ;#play16
  62.                       (prompt #todo-prompt)
  63.                       (help #todo-prompt)
  64.                       (default 31)
  65.           )
  66. )
  67.  
  68. ;********************************************************************
  69. ; Ask where to Install splayer
  70. ;********************************************************************
  71. (set splayerdir (askdir (prompt #wheresplayer)
  72.                         (help   #wheresplayer)
  73.                         (default "sys:")
  74.                 )
  75. )
  76.  
  77. (set where splayerdir)
  78. (set @default-dest where)
  79.  
  80. ;********************************************************************
  81. ; Make Directory and copy over splayer
  82. ;********************************************************************
  83. (if (IN ToDo 0)
  84.  (
  85.   (if (< (exists (tackon where "SPlayer")) 2) (makedir (tackon where "SPlayer") (infos)) )
  86.   (copyfiles (source "SPlayer") (dest (tackon where "splayer")) (infos) (optional "askuser" "force" "nofail") )
  87.  )
  88. )
  89.  
  90. (if (IN ToDo 1)
  91.  (
  92.   ;;(if (< (exists "s:SPlayer") 2) (makedir "s:SPlayer"))
  93.   ;;(copyfiles (source "bin/s/SPlayer") (dest "s:splayer") (all) (infos) (optional "askuser" "force" "nofail") )
  94.   ;;(copyfiles (source "bin/led") (dest "C:") (infos) (optional "askuser" "force" "nofail") )
  95.  
  96.   (if (< (exists "envarc:SPlayer") 2) (makedir "envarc:SPlayer") )
  97.   (if (< (exists "env:SPlayer") 2) (makedir "env:SPlayer") )
  98.   (copyfiles (source "bin/Prefs/Env-Archive/SPlayer/SPlayer.images") (dest "env:SPlayer") (infos) (optional "askuser" "force" "nofail") )
  99.   (copyfiles (source "bin/Prefs/Env-Archive/SPlayer/SPlayer.images") (dest "envarc:SPlayer") (infos) (optional "askuser" "force" "nofail") )
  100.  
  101.   ;(if (< osver 39)
  102.   ; (copyfiles (source "bin/RequestFile") (dest "C:") (infos) (optional "askuser" "force" "nofail") )
  103.   ;)
  104.  )
  105. )
  106.  
  107. (if (IN ToDo 2)
  108.  (
  109.   (copyfiles (source "fonts") (dest "fonts:") (all) (infos) (optional "askuser" "force" "nofail") )
  110.  )
  111. )
  112.  
  113.  
  114. (if (IN ToDo 3)
  115.  (
  116.   (set gaip16dir (askdir (prompt #wheregaip16) (help #wheregaip16) (default "C:") ) )
  117.   (copyfiles (source "bin/GAIP16") (dest gaip16dir) (infos) (optional "askuser" "force" "nofail") )
  118.  )
  119. )
  120.  
  121. ;(if (IN ToDo 4)
  122. ; (
  123. ;  (set play16dir (askdir (prompt #whereplay16) (help #whereplay16) (default (tackon where "SPlayer")) ) )
  124. ;  (set gcpu 0)
  125. ;  (if (AND (> #cpu 1) (exists ("Play16_1.7/Play16'020")) ) (set gcpu 1) )
  126.  
  127. ;  (set cpuPick (askchoice (choices "68000" "68020")
  128. ;                         (prompt #askcpu)
  129. ;                         (help   #askcpu)
  130. ;                          (default gcpu)
  131. ;              )
  132. ;  )
  133.  
  134. ;   (if (AND (= cpuPick 1) (exists ("Play16_1.7/Play16'020")) )
  135. ;    ((copyfiles (source "Play16_1.7/Play16'020") (dest play16dir) (newname "Play16") (infos) (optional "askuser" "force" "nofail") )
  136. ;     (copyfiles (source "Play16_1.7/Play16.info") (dest play16dir) (infos) (optional "askuser" "force" "nofail") )
  137. ;    )
  138. ;    (copyfiles (source "Play16_1.7/Play16") (dest play16dir) (infos) (optional "askuser" "force" "nofail") )
  139. ;   )
  140.  
  141. ;  (copylib (source "Play16_1.7/libs/asyncio.library") (dest "libs:") (optional "askuser" "force" "nofail") )
  142.  
  143. ; )
  144. ;)
  145.  
  146.  
  147. ;********************************************************************
  148. ; Ask where and if docs are wanted.
  149. ;********************************************************************
  150. (set docs (askoptions (choices " SPlayer.guide" ) ;  " SPlayer.doc"
  151.                       (prompt #whatdocs)
  152.                       (help #whatdocs)
  153.                       (default 3)
  154.           )
  155. )
  156.  
  157. (if (<> docs 0)
  158.  (
  159.    (set docsdir (askdir (prompt #wheredocs)
  160.                        (help   #wheredocs)
  161.                        (default (tackon where "SPlayer"))
  162.                 )
  163.    )
  164.  
  165.  
  166.    (if (AND (exists "splayer.guide") (IN docs 0))
  167.     (
  168.      (copyfiles (source "SPlayer.guide") (dest docsdir) (infos) (optional "nofail") )
  169.      (if (< (exists (tackon docsdir "GuidePics")) 2) (makedir (tackon docsdir "GuidePics")) )
  170.      (copyfiles (source "GuidePics") (dest (tackon docsdir "GuidePics")) (all) (optional "nofail") )
  171.     )
  172.    )
  173.  
  174.    (if (AND (exists "splayer.doc") (IN docs 1))
  175.     (copyfiles (source "SPlayer.doc") (dest docsdir) (infos) (optional "nofail") )
  176.    )
  177.  )
  178. )
  179.  
  180. ;********************************************************************
  181. ; Check for S:SPlayer/Splayer.prefs ...
  182. ;********************************************************************
  183. (set doconfig 0)
  184.  
  185. (if (= (exists "ENV:SPlayer/Splayer.prefs") 1)
  186.   (set doconfig (askchoice (choices #yconfig #nconfig)
  187.                            (prompt #doconfig)
  188.                            (help   #doconfig)
  189.                            (default docongif)
  190.                 )
  191.   )
  192. )
  193.  
  194. (if (= doconfig 0)
  195.  (
  196.    ;(set gaip16dir (askdir  (prompt #wheresgapi)
  197.    ;                       (help   #wheresgapi)
  198.    ;                       (default "SYS:")
  199.    ;               )
  200.    ;)
  201.  
  202.    (set play16dir (askdir  (prompt #wheresplay16)
  203.                            (help   #wheresplay16)
  204.                            (default "C:")
  205.                   )
  206.    )
  207.  
  208.    (set MpegaDir  (askdir  (prompt #wheresMpega)
  209.                            (help   #wheresMpega)
  210.                            (default "C:")
  211.                   )
  212.    )
  213.  
  214.    (set configwrite (cat (tackon play16dir "Play16") "*"  (tackon MpegaDir "Mpega") "*" (tackon gaip16dir "GAIP16") "*" "0/0*131075*0000*000000*0000*010"))
  215.    ;;(message configwrite)
  216.  
  217.    (if (< (exists "envarc:SPlayer") 2) (makedir "envarc:SPlayer") )
  218.    (if (< (exists "env:SPlayer") 2) (makedir "env:SPlayer") )
  219.  
  220.    (textfile (dest "ENV:SPlayer/Splayer.prefs") (append configwrite))
  221.    (copyfiles (source "ENV:SPlayer/Splayer.prefs") (dest "ENVARC:SPlayer") (optional "nofail") )
  222.  )
  223. )
  224.  
  225. ;********************************************************************
  226. ; End Bye
  227. ;********************************************************************
  228. (set @default-dest (tackon where "splayer"))
  229. (exit #byebye)
  230.